home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 024 - Big U Macroworks.dsk / RAMDISK.MOD.bas < prev    next >
BASIC Source File  |  2019-02-16  |  1KB  |  16 lines
  1. 5  ONERR  GOTO 1000
  2. 10  TEXT : PRINT  CHR$(21): HOME :D$ =  CHR$(4)
  3. 20  PRINT : PRINT "This program modifies AppleWorks 1.3 so that it works with any RAM disk, not    just Apple's. Earlier versions of       AppleWorks do not require this change.": PRINT 
  4. 25  PRINT "Insert your AppleWorks STARTUP disk and press Return. You will then be able to  use files or run AppleWorks on any RAM  drive. ";
  5. 30  GET X$: PRINT : PRINT 
  6. 195 AW$ = "TEM"
  7. 200  PRINT D$"BLOAD APLWORKS.SYS"AW$",TSYS,A$2000"
  8. 210 ST = 15816: IF  PEEK(ST) < >112  AND  PEEK(ST) < >243  THEN ST = 16180: REM  TRY GERMAN AW 1.3
  9. 220  IF  PEEK(ST) < >112  AND  PEEK(ST) < >243  THEN  PRINT "<CTRL-G>Unrecognized version of AppleWorks.": END 
  10. 225  IF  PEEK(ST) = 243  THEN  PRINT "PREVIOUSLY ";: GOTO 330
  11. 230  POKE ST,243: POKE ST +2,179
  12. 320  PRINT D$"BSAVE APLWORKS.SYS"AW$",TSYS,A$2000"
  13. 330  PRINT "MODIFIED.": END 
  14. 1000 EL =  PEEK(218) + PEEK(219) *256
  15. 1010  IF EL = 200  AND AW$ = "TEM"  THEN AW$ = "": GOTO 200
  16. 1020  IF EL = 200  AND AW$ = ""  THEN  PRINT : PRINT "<CTRL-G>Can't find AppleWorks": END